home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / P_STMNT.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1997-02-13  |  4KB  |  70 lines
  1. P_STMNT
  2. == invno
  3. return
  4. procedure detlopen
  5. *    invcapt.CMNAME4.value = saletemp->prod_code
  6. return
  7. procedure packrecds
  8. return
  9. procedure deltd
  10.     delete
  11.     go top
  12. *    lvoid = invcapt.detail.setfocus()
  13. return
  14. procedure browclose
  15. *    pack
  16. return
  17. PROCEDURE editdetl     && PBNAME7.ONCLICK
  18. *-----------------------------------------------------------------
  19. * NAME
  20. *   ONCLICK - Event handler for PBNAME7
  21. *-------------------------------------------
  22. DESCRIPTIO
  23. etfocus()
  24. RETURN    
  25. PROCEDURE enter     && ETNAME9.KEY
  26. *-----------------------------------------------------------------
  27. * NAME
  28. *   KEY - Event handler for ETNAME9
  29. *-----------------------------------------------------------------
  30.     if event.keyvalue = 13
  31.         event.eventtype = 0
  32.         replace sub_code with cust_id,first_ref with invno,;
  33.         second_ref with orderno,date with inv_date
  34.         replace prod_code with invcapt.cmname4.value,;
  35.         amount with invcapt.etname16.value * salepr1->sell_price,;
  36.         act_code with salepr1->act_code,;
  37.         stock_code with salepr1->stock_code,;
  38.         cost with salepr1->cost,;
  39.         cost_amount with qty * cost
  40.         oldpos = recno()
  41.         if .not. eof()
  42.             skip
  43.         endif
  44. *        set filter to 
  45.         postn = recno()
  46.         if postn = oldpos
  47. ***            set filter to
  48.             append blank
  49.             replace sub_code with cust_id,first_ref with invno,;
  50.             second_ref with orderno,date with inv_date,;
  51.             prod_code with invcapt.cmname4.value,;
  52.             act_code with salepr1->act_code,;
  53.             stock_code with salepr1->stock_code,;
  54.             cost with salepr1->cost
  55.             set filter to first_ref = invno    
  56.         endif
  57.         lvoid = invcapt.refresh()
  58.         lvoid = invcapt.ETNAME16.setfocus()
  59.         invcapt.FIRST_R002.value = invno
  60.         invcapt.CMNAME2.value=    cust_id 
  61.         invcapt.etname9.value = invcapt.etname16.value * ;
  62.         salepr1->sell_price
  63.         invcapt.key = "enterg"
  64.     endif
  65. RETURN    
  66. PROCEDURE enterg     && ETNAME9.KEY
  67. *--------------------------------------------
  68. descriptio
  69. DESCRIPTIO
  70.